function TI = test_int(N,L)
%
% TI = test_int(N,L)
%
% TI is true if N is an integer number >= L, false otherwise.
% If L is undefined or empty, L = 0 is used.

% G. Teza, 2005, 2010.

if nargin < 1
    help test_int; 
    error('Not enough input data'); 
end 
if nargin < 2 || isempty(L)
    L = 0; 
end

if isempty(N) || numel(N) > 1 || ~isnumeric(N) || ~isreal(N) || rem(N,1) ~= 0 || (N < L)
    TI = false;
else
    TI = true;
end